home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs53.d81 / 28may87s.pma / CXVT.ASM < prev    next >
Assembly Source File  |  1979-12-31  |  19KB  |  1,035 lines
  1.  
  2.  
  3.  
  4.     title    'Terminal Emulation (VT-100)   18 Feb 86'
  5.  
  6.     maclib    cxequ
  7.  
  8.     if  use$VT100
  9.  
  10.     maclib    z80
  11.  
  12. lines    equ    24
  13.  
  14.     public    VT100
  15.  
  16. ;
  17. ;    VT-100
  18. ;
  19. ;    NUL        00h    ignored
  20. ;    ENQ        05h    transmit answer back message
  21. ;    BEL        07h    ring bell
  22. ;    BS        08h    back space. stop at left margin
  23. ;    HT        09h    do TAB
  24. ;    LF        0Ah    do line feed scroll at bottom
  25. ;    VT        0Bh    same as LF
  26. ;    FF        0Ch    same as LF
  27. ;    CR        0Dh    do CR
  28. ;    SO        0Eh    invoke G1 set
  29. ;    SI        0Fh    invoke G0 set
  30. ;    XON        11h    ignored
  31. ;    XOFF        13h    ignored
  32. ;    CAN        18h    abort ESC seq (disp error character)
  33. ;    SUB        1Ah    same as CAN
  34. ;    ESC        1Bh    control seq
  35. ;    DEL        7Fh    not used
  36. ; 
  37. ;
  38. ;    ESC =            Keypad mode
  39. ;    ESC >            Keypad mode
  40. ;    ESC 7            Save current cursor post and char set
  41. ;    ESC 8            Restore cursor position and char set
  42. ;    ESC D            move cursor down one line
  43. ;    ESC E            move cursor to start of next line
  44. ;    ESC H            set horizontal tab
  45. ;    ESC M            move cursor up one line
  46. ;    ESC Z            same as ESC [ Pn c
  47. ;    ESC c            reset
  48. ;    ESC # 3            Double height line Top
  49. ;    ESC # 4            Double height line Bottom
  50. ;    ESC # 5            set single width line
  51. ;    ESC # 6            Double width line
  52. ;    ESC # 8            files screen with E's
  53. ;    ESC [ Pn A        cursor up
  54. ;    ESC [ Pn B        cursor down
  55. ;    ESC [ Pn C        cursor right
  56. ;    ESC [ Pn D        cursor left
  57. ;    ESC [ Pn ; Pn H        cursor positioning
  58. ;    ESC [ Ps J        erase display
  59. ;    ESC [ Ps K        erase line
  60. ;    ESC [ Pn c        device attributes request
  61. ;    ESC [ Pn ; Pn f        cursor positioning
  62. ;    ESC [ Ps g        clear tab stop(s)
  63. ;    ESC [ Ps;..;Ps h    set mode
  64. ;    ESC [ Ps;..;Ps l    reset attributes
  65. ;    ESC [ Ps;..;Ps m    set attributes
  66. ;    ESC [ Ps n        Device status report
  67. ;    ESC [ Ps q        set LED's
  68. ;    ESC [ Pn ; Pn r        Set Top and Bottom Margins
  69. ;    ESC [ 2 ; Ps y        invoke confidence test
  70. ;    ESC [ x            Report / Req parameters
  71. ;;    ESC ( A            select char set
  72. ;;    ESC ( B            select char set
  73. ;;    ESC ( 0            select char set
  74. ;;    ESC ( 1            select char set
  75. ;;    ESC ( 2            select char set
  76. ;;    ESC ) A            select char set
  77. ;;    ESC ) B            select char set
  78. ;;    ESC ) 0            select char set
  79. ;;    ESC ) 1            select char set
  80. ;;    ESC ) 2            select char set
  81. ;
  82.     page
  83.  
  84.     dseg
  85. ;
  86. ;    VT-100 terminal emulation
  87. ;
  88. VT100:
  89.     lhld    parm$base        ; 1st parm is exec adr (2 bytes)
  90.     mov    a,m
  91.     inx    h
  92.     mov    h,m
  93.     mov    l,a
  94.     ora    h            ; L is in A already, test HL=0
  95.     mov    a,c            ; C is char to output
  96.     jrz    start$checking 
  97.     pchl
  98. ;
  99. ;
  100. ;
  101. start$checking:
  102.     lxi    h,control$table
  103.     lxi    b,cnt$tbl$lng
  104.     ccir
  105.     lxi    h,control$exec$adr
  106.     jrz    find$exec$adr
  107.     cpi    20h
  108.     rc
  109.  
  110. do$direct:
  111.     mov    d,a
  112.     TJMP    FR$wr$char
  113.  
  114.     page
  115. ;
  116. ;
  117. ;
  118. do$ESC:        ; ESC    control seq
  119.     call    cont$later
  120. ;
  121. ;    ESC char    look for char in the ESC table
  122. ;
  123.     call    remove$exec$adr
  124.     lxi    h,esc$table
  125.     lxi    b,esc$tbl$lng
  126.     ccir
  127.     rnz                ; bad esc sequence
  128.     lxi    h,esc$exec$adr
  129.  
  130. find$exec$adr:
  131.     dad    b
  132.     dad    b
  133.     mov    a,m
  134.     inx    h
  135.     mov    h,m
  136.     mov    l,a
  137.     pchl
  138.  
  139.     page
  140. ;
  141. ;    ESC #
  142. ;
  143. esc$pn:        ; ESC # control seq
  144.     call    cont$later
  145. ;
  146. ;    ESC # char    look for char in the ESC table
  147. ;
  148.     call    remove$exec$adr
  149.     lxi    h,esc$pnd$table
  150.     lxi    b,esc$pnd$tbl$lng
  151.     ccir
  152.     rnz                ; bad esc sequence
  153.     lxi    h,esc$pnd$exec$adr
  154.     jr    find$exec$adr
  155.  
  156.     page
  157. ;
  158. ;    ESC [
  159. ;
  160. esc$br:        ; ESC [
  161.     call    clear$parm
  162.     call    cont$later
  163. ;
  164. ;    ESC [ char    look for char in the ESC table
  165. ;
  166.     cpi    '9'+1            ; input char a parameter
  167.     jrc    put$buffer        ; yes, save parameters in buffer
  168.     call    remove$exec$adr
  169.     lxi    h,esc$br$table
  170.     lxi    b,esc$br$tbl$lng
  171.     ccir
  172.     rnz                ; bad esc sequence
  173.     lxi    h,esc$br$exec$adr
  174.     jr    find$exec$adr
  175. ;
  176. ;    put byte in buffer pointed to by the put pointer+1 (advance pointer)
  177. ;
  178. put$buffer:
  179.     mov    c,a            ; save character in C
  180.     call    get$par            ; get address of parameter buffer
  181.     mov    e,m            ; get low byte adr of input buffer
  182.     inx    h
  183.     mov    d,m            ; get high byte adr of input buffer
  184.     inx    h
  185.     inr    m            ; advance input count
  186.     mov    l,m            ; get current count (with input)
  187.     mvi    h,0            ;
  188.     dad    d            ; compute adr in buf to place input
  189.     mov    m,c            ; place input character into buffer
  190. ;    stc
  191.     ret
  192. ;
  193. ;    get byte from buffer pointed to by the get pointer+1 (advance pointer)
  194. ;
  195. get$buffer:
  196.     call    get$par
  197.     mov    e,m
  198.     inx    h
  199.     mov    d,m
  200.     inx    h
  201.     mov    a,m        ; recover put counter
  202.     inx    h
  203.     sub    m        ; test for end
  204.     rz
  205.     inr    m        ; advance get counter
  206.     mov    l,m        ; get the get counter
  207.     mvi    h,0
  208.     dad    d
  209.     mov    a,m
  210. do$DEL:        ; DEL    not used
  211.     ret
  212.  
  213.     page
  214. ;
  215. ;
  216. ;
  217. do$CAN:        ; CAN SUB  abort ESC seq (disp error character)
  218.  
  219. ;
  220. ;    Invoke G0 char set
  221. ;
  222. do$SI:        ; SI    invoke G0 set
  223.     ret
  224.  
  225. ;
  226. ;    Invoke G1 char set
  227. ;
  228. do$SO:        ; SO    invoke G1 set
  229.     ret
  230.  
  231. ;
  232. ;    move cursor to margin on current line
  233. ;
  234. do$CR:        ; CR    do CR
  235.     TJMP    FR$do$cr
  236.  
  237. ;
  238. ;    
  239. ;
  240. do$LF:        ; FF VT LF    do line feed scroll at bottom
  241.     TJMP    FR$cursor$down
  242.  
  243. ;
  244. ;    move cursor to next tab stop or right margin if none
  245. ;
  246. do$HT:        ; HT    do TAB
  247.     ret
  248.  
  249. ;
  250. ;    move cursor to left but not past left margin
  251. ;
  252. do$BS:        ; BS    back space. stop at left margin
  253.     TJMP    FR$cursor$left
  254.  
  255. ;
  256. ;    Sound bell tone
  257. ;
  258. do$BEL:        ; BEL    ring bell
  259.     RJMP    FR$bell
  260.  
  261. ;
  262. ;    transmit answerback message
  263. ;
  264. do$ENQ:        ; ENQ    transmit answer back message
  265.     ret
  266.  
  267. ;
  268. ;
  269. ;
  270. esc$pn$8:    ; ESC # 8    files screen with E's
  271.     lxi    d,024*256+0    ; set row (D) and col (E)
  272.     mvi    c,24        ; set # of rows (C)
  273. out$next$line$E:
  274.     mvi    b,80        ; set # of col (B)
  275.     dcr    d        ; start with row 0
  276.     push    d
  277.     push    b
  278.     TCALL    FR$cursor$pos
  279.     pop    b
  280. out$next$E:
  281.     push    b
  282.     mvi    d,'E'
  283.     TCALL    FR$wr$char
  284.     pop    b
  285.     djnz    out$next$E
  286.     pop    d
  287.     dcr    c
  288.     jrnz    out$next$line$E
  289.     ret
  290.  
  291. ;
  292. ;
  293. ;
  294. esc$pn$6:    ; ESC # 6    Double width line
  295.     ret
  296.  
  297. ;
  298. ;
  299. ;
  300. esc$pn$5:    ; ESC # 5    set single width line
  301.     ret
  302.  
  303. ;
  304. ;
  305. ;
  306. esc$pn$4:    ; ESC # 4    Double height line Bottom
  307.     ret
  308.  
  309. ;
  310. ;
  311. ;
  312. esc$pn$3:    ; ESC # 3    Double height line Top
  313.     ret
  314.  
  315. ;
  316. ;    Set tab at current cursor column
  317. ;
  318. esc$HH:        ; ESC H    set horizontal tab
  319.     ret
  320.  
  321. ;
  322. ;    Move cursor down one line, scroll if on bottom margin
  323. ;
  324. esc$DD:        ; ESC D    move cursor down one line
  325.  
  326.     ret
  327.  
  328. ;
  329. ;    Move cursor to start of next line, scroll up if cursor
  330. ;    is on the bottom margin
  331. ;
  332. esc$EE:        ; ESC E    move cursor to start of next line
  333.     
  334.     ret
  335.  
  336. ;
  337. ;    Move cursor up one line, if on top margin scroll down
  338. ;
  339. esc$MM:        ; ESC M    move cursor up one line
  340.  
  341.     ret
  342.  
  343. ;
  344. ;    reset VT100 to initial state (causes INIT H to be asserted
  345. ;    briefly ???)
  346. ;
  347. esc$c:        ; ESC c    reset
  348.     ret
  349.  
  350. ;
  351. ;
  352. ;
  353. esc$8:        ; ESC 8    Restore cursor position and char set
  354.     ret
  355.  
  356. ;
  357. ;
  358. ;
  359. esc$7:        ; ESC 7    Save current cursor post and char set
  360.     ret
  361.  
  362. ;
  363. ;    place Keypad into Numeric mode
  364. ;
  365. esc$gt:        ; ESC >    Keypad mode
  366.     ret
  367.  
  368. ;
  369. ;    place Keypad into Application mode
  370. ;
  371. esc$equ:    ; ESC =    Keypad mode
  372.     ret
  373.  
  374. ;
  375. ;
  376. ;
  377. esc$br$y:    ; ESC [2;Ps y    invoke confidence test
  378.     ret
  379.  
  380. ;
  381. ;
  382. ;
  383. esc$br$x:    ; ESC [ x    Report / Req parameters
  384.     ret
  385.  
  386. ;
  387. ;
  388. ;
  389. esc$br$r:    ; ESC [Pn;Pn r    Set Top and Bottom Margins
  390.     ret
  391.  
  392. ;
  393. ;    Ps=0    clear all LED's (default)
  394. ;    PS=1    set LED 1
  395. ;    Ps=2    set LED 2
  396. ;    Ps=3    set LED 3
  397. ;    Ps=4    set LED 4
  398. ;
  399. esc$br$q:    ; ESC [Ps q    set LED's
  400.     ret
  401.  
  402. ;
  403. ;    Ps=5    Status Report
  404. ;        responce is:    ESC [0n (terminal OK)
  405. ;                ESC [3n (terminal not OK)
  406. ;    Ps=6    Report cursor position
  407. ;        responce is:    ESC [ Pl ; Pc R
  408. ;        where Pl is the line number
  409. ;        and Pc is column number
  410. ;
  411. esc$br$n:    ; ESC [Ps n    Device status report
  412.     ret
  413.  
  414. ;
  415. ;    Ps=0    attributes off (default)
  416. ;    Ps=1    bold or increased intensity
  417. ;    Ps=4    underscore
  418. ;    Ps=5    blink
  419. ;    Ps=7    reverse video
  420. ;
  421. esc$br$m:    ; ESC [Ps;;Ps m set character attributes
  422.     call    get$Pn$def0$init
  423. check$br$m:
  424.     dcr    c        ; check # of parameters used
  425.     rz            ; exit if None
  426.     ana    a        ; Ps=0 ?
  427.     jrz    set$atr$off    ; set attributes off
  428.     dcr    a        ; Ps=1
  429.     jrz    bold$on        ;
  430.     dcr    a        ; Ps=2
  431.     dcr    a        ; Ps=3
  432.     dcr    a        ; Ps=4
  433.     jrz    underline$on    ;
  434.     dcr    a        ; Ps=5
  435.     jrz    blink$on    ;
  436.     dcr    a        ; Ps=6
  437.     dcr    a        ; Ps=7
  438.     jrz    reverse$on    ;
  439.     call    get$Pn$def0
  440.     jr    check$br$m
  441.  
  442. set$atr$off:
  443. bold$on:
  444. underline$on:
  445. blink$on:
  446. reverse$on:
  447.     ret
  448.  
  449.  
  450. ;
  451. ;    Ps=1    cursor key    (l=cursor ; h=application)
  452. ;    Ps=2    ANSI/VT52    (l=VT52  not supported)
  453. ;    Ps=3    Column        (l=80 col ; h=132 col) 80 only
  454. ;    Ps=4    Scrolling    (l=jump ; h=smooth) smooth only
  455. ;    Ps=5    Screen        (l=normal ; h=reverse)
  456. ;    Ps=6    Origin        (l=Absolute ; h=Relative)
  457. ;    Ps=7    Auto wrap    (l=off ; h=on)
  458. ;    Ps=8    Auto Repeat    (l=off ; h=on)
  459. ;    Ps=9    interlace    (l=off ; h=on)
  460. ;    Ps=20    LF/NL        (l=line feed ; h=new line)
  461. ;
  462. esc$br$l:    ; ESC [Ps;;Ps l    reset mode
  463.     ret
  464. ;
  465. ;    see esc$br$l 
  466. ;
  467. esc$br$h:    ; ESC [Ps;;Ps h    set mode
  468.     ret
  469.  
  470. ;
  471. ;    Ps=0    clear tab stop at current column (default)
  472. ;    Ps=3    clear ALL tab stops
  473. ;
  474. esc$br$g:    ; ESC [Ps g    clear tab stop(s)
  475.     ret
  476.  
  477. ;
  478. ;    Pn default =1    missing Pn uses default value(s)
  479. ;    position cursor to line (1st) and column (2nd)
  480. ;    uses DECOM parm to set origin mode (within margin
  481. ;    or full screen)
  482. ;
  483. esc$br$f:    ; ESC [Pn;Pn f    cursor positioning
  484. esc$br$HH:    ; ESC [Pn;Pn H    cursor positioning
  485.     call    get$Pn$def1$init
  486.     dcr    a
  487.     mov    d,a
  488.     call    get$Pn$def1        ; DE are not changed by this call
  489.     dcr    a
  490.     mov    e,a
  491.     TJMP    FR$cursor$pos
  492.  
  493. ;
  494. ;    What are you
  495. ;    response is:    ESC [?1; Ps c
  496. ;    where Ps is:
  497. ;        0=base VT100, no options
  498. ;        1=processor option (STP)
  499. ;        2=advanced video option (AVO)
  500. ;        3=AVO and STP
  501. ;        4=graphics processor option (GPO)
  502. ;        5=GPO and STP
  503. ;        6=GPO and AVO
  504. ;        7=GPO, STP and AVO
  505. ;
  506. esc$ZZ:        ; ESC Z        same as ESC [ Pn c
  507. esc$br$c:    ; ESC [Pn c    device attributes request
  508.     ret
  509.  
  510. ;
  511. ;    Ps=0    from cursor to end of line (default)
  512. ;    Ps=1    from start of line to cursor
  513. ;    Ps=2    all of cursor line
  514. ;
  515. esc$br$KK:    ; ESC [Ps K    erase line
  516.     ret
  517.  
  518. ;
  519. ;    Ps=0    from cursor to end of screen
  520. ;    Ps=1    from start of screen to cursor
  521. ;    Ps=2    all of screen (cursor is not moved)
  522. ;
  523. esc$br$JJ:    ; ESC [Ps J    erase display
  524.     ret
  525.  
  526. ;
  527. ;
  528. ;
  529. esc$br$DD:    ; ESC [Pn D    cursor left
  530.     ret
  531.  
  532. ;
  533. ;
  534. ;
  535. esc$br$CC:    ; ESC [Pn C    cursor right
  536.     ret
  537.  
  538. ;
  539. ;
  540. ;
  541. esc$br$BB:    ; ESC [Pn B    cursor down
  542.     ret
  543.  
  544. ;
  545. ;
  546. ;
  547. esc$br$AA:    ; ESC [Pn A    cursor up
  548.     ret
  549.  
  550.     page
  551. ;
  552. ;    convert number to binary
  553. ;    stop conversion at end or any none number
  554. ;    (DE may not be changed)
  555. ;
  556. get$Pn$def0$init:
  557.     call    init$get        ; set up to read buffer
  558. ;
  559. get$Pn$def0:
  560.     call    get$in$parm
  561.     mov    a,b            ; get input data to A
  562.     ret
  563. ;
  564. ;*****    NOTE    ESC [ ;4;A    is the same as ESC [ 0;4;5A
  565. ;
  566. ;
  567. ;    convert number to binary
  568. ;    stop conversion at end or any none number
  569. ;    return 1 if input is missing or a zero
  570. ;    (DE may not changed)
  571. ;
  572. get$Pn$def1$init:
  573.     call    init$get        ; set up to read buffer
  574. ;
  575. get$Pn$def1:
  576.     call    get$in$parm
  577.     mov    a,b            ; get input data to A
  578.     ora    a            ; is input =0?
  579.     rnz                ; no, then use it
  580.     inr    a            ; yes, then use default of 1
  581.     ret
  582.  
  583. ;
  584. ;    B=converted number in binary (from input string)
  585. ;    C=number of digits converted+1
  586. ;    A=0 if ran out of input else A=last character read from string
  587. ;    (DE may not be changed)
  588. ;
  589. get$in$parm:
  590.     lxi    b,1            ; B=0, C=1
  591. get$next$num:
  592.     lda    save$count
  593.     dcr    a
  594.     rz
  595.     sta    save$count
  596.     lhld    buff$pointer        ; get input buffer adr
  597.     inx    h            ; PRE incr adr
  598.     shld    buff$pointer
  599.     mov    a,m
  600.     call    test$num
  601.     rc
  602.     slar    b            ; 2x
  603.     add    b            ; A=A+2B
  604.     slar    b            ; 4x
  605.     slar    b            ; 8x
  606.     add    b            ; A=A+2B+8B=A+10B
  607.     mov    b,a            ; save in B
  608.     inr    c            ; advance parmeter count
  609.     jr    get$next$num
  610.  
  611. ;
  612. ;    return with carry set (Cy=1) if not a number (A=input Char)
  613. ;    return bianary number in A if it was a number (Cy=0)
  614. ;
  615. test$num:
  616.     cpi    '0'
  617.     rc
  618.     cpi    '9'+1
  619.     cmc
  620.     rc
  621.     sui    '0'
  622.     ret
  623. ;
  624. ;    set up local values to use buffer parameters
  625. ;
  626. init$get:
  627.     call    get$par            ; get pointer to buffer(s)
  628.     mov    e,m
  629.     inx    h
  630.     mov    d,m
  631.     inx    h
  632.     mov    a,m
  633.     inr    a            ; adjust for PRE decr
  634.     sta    save$count
  635. ;    inx    h
  636. ;    mov    a,m
  637. ;    sta    get$count
  638.     xchg
  639.     shld    buff$pointer
  640.     ret
  641.  
  642. save$count:
  643.     db    0
  644. buff$pointer:
  645.     dw    0
  646.  
  647.     page
  648. ;
  649. ;    set buffer back to start
  650. ;
  651. clear$parm:
  652.     call    get$par
  653.     inx    h
  654.     inx    h
  655.     mvi    m,0        ; zero out the input count
  656.     ret
  657. ;
  658. ;
  659. ;
  660. get$par:
  661.     lxi    h,vt100$par$80
  662.     lda    fun$offset
  663.     ana    a
  664.     rz
  665.     lxi    h,vt100$par$40
  666.     ret
  667. ;
  668. ;
  669. ;
  670. vt100$par$80:
  671.     dw    buffer$80
  672.     db    0        ; current put pointer into buffer
  673. ;
  674. ;
  675. ;
  676. vt100$par$40:
  677.     dw    buffer$40
  678.     db    0        ; current put pointer into buffer
  679.  
  680. buffer$80    equ    $-1
  681.     ds    20
  682. buffer$40    equ    $-1
  683.     ds    20
  684.  
  685.     page
  686. ;
  687. ;
  688. ;
  689. cont$later:
  690.     pop    h        ; get address to cont at in H
  691.     jr    save$exec$adr    ; save it
  692. ;
  693. ;
  694. ;
  695. remove$exec$adr:
  696.     lxi    h,0
  697. save$exec$adr:
  698.     xchg
  699.     lhld    parm$base
  700.     mov    m,e
  701.     inx    h
  702.     mov    m,d
  703.     ret
  704.  
  705.     page
  706. ;
  707. ;    table scanned top to bottom
  708. ;
  709. control$table:
  710.     db    05h    ; ENQ    transmit answer back message
  711.     db    07h    ; BEL    ring bell
  712.     db    08h    ; BS    back space. stop at left margin
  713.     db    09h    ; HT    do TAB
  714.     db    0Ah    ; LF    do line feed scroll at bottom
  715.     db    0Bh    ; VT    same as LF
  716.     db    0Ch    ; FF    same as LF
  717.     db    0Dh    ; CR    do CR
  718.     db    0Eh    ; SO    invoke G1 set
  719.     db    0Fh    ; SI    invoke G0 set
  720.     db    18h    ; CAN    abort ESC seq (disp error character)
  721.     db    1Ah    ; SUB    same as CAN
  722.     db    1Bh    ; ESC    control seq
  723.     db    7Fh    ; DEL    not used
  724.  
  725. cnt$tbl$lng    equ    $-control$table
  726.  
  727. ;
  728. ;    table scanned bottom to top
  729. ;
  730. control$exec$adr:
  731.     dw    do$DEL        ; DEL    not used
  732.     dw    do$ESC        ; ESC    control seq
  733.     dw    do$CAN        ; SUB    same as CAN
  734.     dw    do$CAN        ; CAN    abort ESC seq (disp error character)
  735.     dw    do$SI        ; SI    invoke G0 set
  736.     dw    do$SO        ; SO    invoke G1 set
  737.     dw    do$CR        ; CR    do CR
  738.     dw    do$LF        ; FF    same as LF
  739.     dw    do$LF        ; VT    same as LF
  740.     dw    do$LF        ; LF    do line feed scroll at bottom
  741.     dw    do$HT        ; HT    do TAB
  742.     dw    do$BS        ; BS    back space. stop at left margin
  743.     dw    do$BEL        ; BEL    ring bell
  744.     dw    do$ENQ        ; ENQ    transmit answer back message
  745.  
  746.     page
  747. ;
  748. ;    table scanned top to bottom
  749. ;
  750. esc$table:
  751.     db    '='        ; ESC =    Keypad mode
  752.     db    '>'        ; ESC >    Keypad mode
  753.     db    '7'        ; ESC 7    Save current cursor post and char set
  754.     db    '8'        ; ESC 8    Restore cursor position and char set
  755.     db    'D'        ; ESC D    move cursor down one line
  756.     db    'E'        ; ESC E    move cursor to start of next line
  757.     db    'H'        ; ESC H    set horizontal tab
  758.     db    'M'        ; ESC M    move cursor up one line
  759.     db    'Z'        ; ESC Z    same as ESC [ Pn c
  760.     db    'c'        ; ESC c    reset
  761.     db    '#'        ; ESC # control seq
  762.     db    '['        ; ESC [ cursor up
  763. esc$tbl$lng    equ    $-esc$table
  764.  
  765. ;
  766. ;    table scanned bottom to top
  767. ;
  768. esc$exec$adr:
  769.     dw    esc$br        ; ESC [ cursor up
  770.     dw    esc$pn        ; ESC # control seq
  771.     dw    esc$c        ; ESC c reset
  772.     dw    esc$ZZ        ; ESC Z    same as ESC [ Pn c
  773.     dw    esc$MM        ; ESC M move cursor up one line
  774.     dw    esc$HH        ; ESC H    set horizontal tab
  775.     dw    esc$EE        ; ESC E move cursor to start of next line
  776.     dw    esc$DD        ; ESC D move cursor down one line
  777.     dw    esc$8        ; ESC 8    Restore cursor position and char set
  778.     dw    esc$7        ; ESC 7    Save current cursor post and char set
  779.     dw    esc$gt        ; ESC >    Keypad mode
  780.     dw    esc$equ        ; ESC =    Keypad mode
  781.  
  782. ;
  783. ;
  784. ;
  785. esc$pnd$table:
  786.     db    '3'    ; ESC # 3    Double height line Top
  787.     db    '4'    ; ESC # 4    Double height line Bottom
  788.     db    '5'    ; ESC # 5    set single width line
  789.     db    '6'    ; ESC # 6    Double width line
  790.     db    '8'    ; ESC # 8    files screen with E's
  791.  
  792. esc$pnd$tbl$lng    equ    $-esc$pnd$table
  793.  
  794. esc$pnd$exec$adr:
  795.     dw    esc$pn$8    ; ESC # 8    files screen with E's
  796.     dw    esc$pn$6    ; ESC # 6    Double width line
  797.     dw    esc$pn$5    ; ESC # 5    set single width line
  798.     dw    esc$pn$4    ; ESC # 4    Double height line Bottom
  799.     dw    esc$pn$3    ; ESC # 3    Double height line Top
  800.  
  801. ;
  802. ;
  803. ;
  804. esc$br$table:
  805.     db    'A'    ; ESC [ Pn A        cursor up
  806.     db    'B'    ; ESC [ Pn B        cursor down
  807.     db    'C'    ; ESC [ Pn C        cursor right
  808.     db    'D'    ; ESC [ Pn D        cursor left
  809.     db    'H'    ; ESC [ Pn ; Pn H    cursor positioning
  810.     db    'J'    ; ESC [ Ps J        erase display
  811.     db    'K'    ; ESC [ Ps K        erase line
  812.     db    'c'    ; ESC [ Pn c        device attributes request
  813.     db    'f'    ; ESC [ Pn ; Pn f    cursor positioning
  814.     db    'g'    ; ESC [ Ps g        clear tab stop(s)
  815.     db    'h'    ; ESC [ Ps;..;Ps h    set mode
  816.     db    'l'    ; ESC [ Ps;..;Ps l    reset attributes
  817.     db    'm'    ; ESC [ Ps;..;Ps m    set attributes
  818.     db    'n'    ; ESC [ Ps n        Device status report
  819.     db    'q'    ; ESC [ Ps q        set LED's
  820.     db    'r'    ; ESC [ Pn ; Pn r    Set Top and Bottom Margins
  821.     db    'x'    ; ESC [ x        Report / Req parameters
  822.     db    'y'    ; ESC [ 2 ; Ps y    invoke confidence test
  823.  
  824. esc$br$tbl$lng    equ    $-esc$br$table
  825.  
  826. esc$br$exec$adr:
  827.     dw    esc$br$y    ; ESC [2;Ps y    invoke confidence test
  828.     dw    esc$br$x    ; ESC [ x    Report / Req parameters
  829.     dw    esc$br$r    ; ESC [Pn;Pn r    Set Top and Bottom Margins
  830.     dw    esc$br$q    ; ESC [Ps q    set LED's
  831.     dw    esc$br$n    ; ESC [Ps n    Device status report
  832.     dw    esc$br$m    ; ESC [Ps;;Ps m set attributes
  833.     dw    esc$br$l    ; ESC [Ps;;Ps l    reset attributes
  834.     dw    esc$br$h    ; ESC [Ps;;Ps h    set mode
  835.     dw    esc$br$g    ; ESC [Ps g    clear tab stop(s)
  836.     dw    esc$br$f    ; ESC [Pn;Pn f    cursor positioning
  837.     dw    esc$br$c    ; ESC [Pn c    device attributes request
  838.     dw    esc$br$KK    ; ESC [Ps K    erase line
  839.     dw    esc$br$JJ    ; ESC [Ps J    erase display
  840.     dw    esc$br$HH    ; ESC [Pn;Pn H    cursor positioning
  841.     dw    esc$br$DD    ; ESC [Pn D    cursor left
  842.     dw    esc$br$CC    ; ESC [Pn C    cursor right
  843.     dw    esc$br$BB    ; ESC [Pn B    cursor down
  844.     dw    esc$br$AA    ; ESC [Pn A    cursor up
  845.  
  846.     endif
  847.     end
  848.  
  849. ;
  850. ;
  851. ;
  852. esc$esc:
  853.     call    cont$later
  854. ;
  855. ;    check for ESC ESC ESC
  856. ;
  857.     cpi    esc            ; check if 3rd char is an ESC
  858.     jrnz    remove$exec$adr
  859.     call    cont$later
  860. ;
  861. ;    set current character as the attr
  862. ;
  863.     mov    b,a
  864.     TCALL    FR$color
  865.     jr    remove$exec$adr
  866.  
  867.  
  868. ;
  869. ;
  870. ;
  871. esc$equ:
  872.     call    cont$later
  873. ;
  874. ;    ESC = R
  875. ;
  876.     lhld    parm$base
  877.     inx    h
  878.     inx    h
  879.     sui    ' '            ; remove ascii bias
  880.     mov    m,a
  881.     cpi    '8'-' '            ; test for line 25 (A=24?)
  882.     jrnz    not$status$line        ; no, jmp
  883.     inr    a            ; yes, A=25
  884.     sta    paint$size        ; set 40 column repaint to 25 lines
  885. not$status$line:
  886.     call    cont$later
  887. ;
  888. ;    ESC = R C    (go do it)
  889. ;
  890.     sui    ' '
  891.     mov    e,a            ; column # to E
  892.  
  893.     lhld    parm$base
  894.     inx    h
  895.     inx    h
  896.     mov    d,m            ; row # to D
  897.     TCALL    FR$cursor$pos
  898.     jr    remove$exec$adr
  899.  
  900.     page
  901. ;
  902. ;
  903. ;
  904. char$cnt$z:                ; ^Z    home and clear screen
  905.     lxi    d,lines*256+0        ; B=24(row) C=0(col)
  906.     TCALL    FR$cursor$pos
  907.     call    esc$t            ; clear the status line 
  908.     lxi    d,0
  909.     TCALL    FR$cursor$pos
  910. esc$y:
  911.     TJMP    FR$CES            ; clear to end of screen 
  912.  
  913. home$cursor:
  914.     lxi    d,0
  915.     TJMP    FR$cursor$pos
  916.     
  917. esc$t:
  918.     TJMP    FR$CEL            ; clear to end of line 
  919.  
  920. ;
  921. ;
  922. ;
  923. cursor$rt:
  924.     TJMP    FR$cursor$rt
  925.  
  926. ;
  927. ;
  928. ;
  929. cursor$up:
  930.     TJMP    FR$cursor$up
  931.  
  932.  
  933.     page
  934.  
  935. ;
  936. ;    delete character
  937. ;
  938. esc$W:
  939.     TJMP    FR$char$del
  940.  
  941. ;
  942. ;    delete line
  943. ;
  944. esc$R:
  945.     TJMP    FR$line$del
  946.  
  947. ;
  948. ;    insert character
  949. ;
  950. esc$Q:
  951.     TJMP    FR$char$ins
  952.  
  953. ;
  954. ;    insert line
  955. ;
  956. esc$E:
  957.     TJMP    FR$line$ins
  958.  
  959.     page
  960. ;
  961. ;    Half Intensity Off
  962. ;
  963. esc$lfp:
  964.     mvi    c,00000001b        ; turn intensity up
  965.     jr    set$FR$atr$c
  966. ;
  967. ;    Half Intensity On
  968. ;
  969. esc$rtp:
  970.     mvi    c,00000000b        ; turn intensity down
  971. parn$cont:
  972.     mvi    b,00000001b        ; attribute bit to change
  973.     jr    set$FR$attr
  974.  
  975. ;
  976. ;    Set Attribute sequence
  977. ;
  978. esc$G:
  979.     call    cont$later
  980. ;
  981. ;    ESC G char
  982. ;
  983.     call    remove$exec$adr
  984.     sui    '4'            ; '4' reverse video on
  985.     jrz    esc$G$4
  986.     inr    a            ; '3' underline attr on
  987.     jrz    esc$G$3
  988.     inr    a            ; '2' blink attr on
  989.     jrz    esc$G$2
  990.     inr    a            ; '1' alt char set
  991.     jrz    esc$G$1
  992.     inr    a            ; '0' clear attributes
  993.     rnz
  994. ;
  995. ;    Rev. Video, blink, atl char set, and underline  off
  996. ;
  997. esc$G$0:
  998.     mvi    c,10000000b        ; turn attributes off
  999.     mvi    b,11110000b        ; attribute bit to change
  1000.     jr    set$FR$attr
  1001.  
  1002. ;
  1003. ;    Select alt character set
  1004. ;
  1005. esc$G$1:
  1006.     mvi    c,00000000b        ; select alt character set
  1007.     mvi    b,10000000b
  1008.     jr    set$FR$attr
  1009.  
  1010. ;
  1011. ;    Blinking On
  1012. ;
  1013. esc$G$2:    
  1014.     mvi    c,00010000b        ; turn on blink attr
  1015.     jr    set$FR$atr$c
  1016.  
  1017. ;
  1018. ;    Under line
  1019. ;
  1020. esc$G$3:
  1021.     mvi    c,00100000b        ; turn on underline bit
  1022.     jr    set$FR$atr$c
  1023.  
  1024. ;
  1025. ;    Reverse Video On
  1026. ;
  1027. esc$G$4:
  1028.     mvi    c,01000000b        ; turn attributes on
  1029.  
  1030. set$FR$atr$c:
  1031.     mov    b,c            ; reverse attr
  1032. set$FR$attr:
  1033.     TJMP    FR$attr
  1034.  
  1035.